set more off
global user "`c(username)'"
*** Set WD
cd "/Users//$user/Dropbox/SurveyCovid19/"


*** Directories
global data "Descriptive paper/Clean Data/"
global tables "Descriptive paper/Tables/"
global figures "Descriptive paper/Figures/"
global enddate"1may2020"

global clean "C:\Users\\$user\Dropbox\SurveyCovid19\Descriptive paper\Data for replication\"
use "$clean\data_textstats.dta", clear


**** Income distribution before and after

preserve
keep if date>td(13apr2020) & date<td($enddate)
drop if ingreso_ahora==. | ingreso_antes==.
gen cou=1
collapse (sum) cou [w=ipw_c], by(ingreso_antes)
egen tot=total(cou)
gen share_antes=cou/tot
ren ingreso_antes ingreso
tabstat share_antes, by(ingreso)
restore
preserve
keep if date>td(13apr2020) & date<td($enddate)
drop if ingreso_ahora==. | ingreso_antes==.
gen cou=1
collapse (sum) cou [w=ipw_c], by(ingreso_ahora)
egen tot=total(cou)
gen share_antes=cou/tot
ren ingreso_ahora ingreso
tabstat share_antes, by(ingreso)
restore


preserve
collapse redujo_ingreso  perdioempleo cerronegocio hambre h_menos_saludable trabajocasa pop [w=ipw], by(country ingreso_antes)
tabstat redujo_ingreso   perdioempleo cerronegocio hambre h_menos_saludable trabajocasa [w=pop], by(ingreso_antes)
restore


preserve
collapse perdioempleo cerronegocio  pop [w=ipw], by(country emp_y_ ingreso_antes)
tabstat perdioempleo cerronegocio [w=pop] if emp_y_==1, by(ingreso_antes)
tabstat perdioempleo cerronegocio [w=pop] if emp_y_==2, by(ingreso_antes)
tabstat perdioempleo cerronegocio [w=pop] if emp_y_==4, by(ingreso_antes)
restore



g lost_livelihood=perdioempleo==1 | cerronegocio==1
replace lost_livelihood=. if perdioempleo==. & cerronegocio==.



preserve
collapse hambre h_menos_saludable  pop [w=ipw], by(country lost_livelihood ingreso_antes)
tabstat hambre h_menos_saludable if lost_livelihood==1 [w=pop], by(ingreso_antes)
tabstat hambre h_menos_saludable if lost_livelihood==0 [w=pop], by(ingreso_antes)
restore

preserve
keep if date>td(13apr2020) & date<td($enddate)
keep if ingreso_antes!=.
collapse lost_livelihood perdioempleo cerronegocio  pop strength [w=ipw] ,by(country)
collapse lost_livelihood perdioempleo cerronegocio [w=pop] ,by(strength)
label values strength strength
label var strength "Mobility restriction (category)"
tabstat lost_livelihood perdioempleo cerronegocio ,by(strength)
restore




preserve
collapse recibeprestamo darprestamos pop [w=ipw], by(country ingreso_antes)
tabstat recibeprestamo darprestamos  [w=pop], by(ingreso_antes)
restore


preserve
collapse recibeprestamo darprestamos  pop [w=ipw], by(country lost_livelihood ingreso_antes)

tabstat recibeprestamo darprestamos if lost_livelihood==1 [w=pop], by(ingreso_antes)
tabstat recibeprestamo darprestamos if lost_livelihood==0 [w=pop], by(ingreso_antes)
restore


preserve
collapse h_pol_prioridad h_tiempo_cerrar  pop [w=ipw], by(country ingreso_antes)
tabstat h_pol_prioridad h_tiempo_cerrar   [w=pop], by(ingreso_antes)
restore


preserve
collapse h_pol_prioridad h_tiempo_cerrar  pop [w=ipw], by(country lost_livelihood ingreso_antes)
tabstat h_pol_prioridad h_tiempo_cerrar if lost_livelihood==1 [w=pop], by(ingreso_antes)
tabstat h_pol_prioridad h_tiempo_cerrar if lost_livelihood==0 [w=pop], by(ingreso_antes)
restore


